clear all;

cd ..;cd ..;cd ..;
load('code_main_model\6_implied_w_r\input\comm_loc_model.mat');
cd 'code_figure_table\OA\Table OA13';
comm_loc=comm_loc(:,1:11);
[baseline_ratio,baseline_ratio_bangkok,baseline_ratio_northern,baseline_ratio_southern,baseline_ratio_central,baseline_ratio_northeastern]=...
    correct_ratio(comm_loc_model,comm_loc);
result=[baseline_ratio,baseline_ratio_bangkok,baseline_ratio_northern,baseline_ratio_southern,baseline_ratio_central,baseline_ratio_northeastern];
result(end,:)